home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / labelr / bldimage.mac < prev    next >
Encoding:
Text File  |  1993-09-13  |  10.2 KB  |  173 lines
  1. \X PR_LBL\IF #760='5.25"'\JUMP NOFLIP\ENDIF
  2. \MOV #300 TO H\MOV #301-2 TO I\MOV #302 TO J\MOV 60 TO L\MOV 401 TO G
  3. \CALL BRDRLINE\BLA 6,14,360,54\BLA 0,61,370,100
  4. \MOV #300 TO H\MOV 101 TO I\MOV #302 TO J\MOV #303 TO L\MOV 401 TO G
  5. \CALL BRDRLINE\BLA 6,107,360,387\CALL BLNKOUT\RETURN
  6. \X NOFLIP\MOV #300 TO H\MOV #301 TO I\MOV #302 TO J\MOV #303 TO L\MOV 401 TO G
  7. \CALL BRDRLINE\BLA #300+6,#301+6,#302-6,#303-6\CALL BLNKOUT\RET
  8. \X BLNKOUT\IF LABTYPE='5.25"'\BL 0,#303+1,#302,412\BL 376,#303+1,639,479\BL #302+1,#301,639,479
  9. \ELSE\BLA 0,0,370,7\BLA HIGHXPRN+1,0,#320-1,HIGHYPRN\BL 0,394,#320-1,412\ENDIF\RET
  10. \X BRDRLINE\IF #G=1\LINE H,I,J,L,14,B\ELSE\LINE H,I,J,L,0,B\ENDIF\ADD 1 TO H\ADD 1 TO I\ADD -1 TO J\ADD -1 TO L
  11. \ADD 1 TO G\IF G<407\JUMP BRDRLINE\ENDIF\RET
  12. \X SHOW_DISKDATA\TEXT PLANE=1110\IF #760='5.25"'\JUMP NOSPINE\ENDIF
  13. \MOV 66 TO #99\CALL RDSMLFON\LOC TXT_LFT,#99\WID 230 DOTS\MOV 1 TO G\X SPINE
  14. \DISP DISK_NAME\IF DISK_VERS<>' '\DISP '       ',DISK_VERS\ENDIF
  15. \ADD FNTY-1 TO #99\LOC TXT_LFT,#99\ADD 1 TO G\IF G<4\JUMP SPINE\ENDIF
  16. \X NOSPINE\MOV #762 TO #99
  17. \LOC TXT_LFT,#99\WID HIGHXPRN-(TXT_LFT+BRDRWIDTH+1) DOTS
  18. \MOV FONT_TYPE TO #200\CALL CURRFNT
  19. \DISP DISK_NAME\MOV #99 TO #89\MOV FNTY TO #86\ADD FNTY TO #99
  20. \CALL RDSMLFON\MOV FNTY TO #85
  21. \IF FONT_TYPE<'3' AND DISK_VERS<>' '\DISP '  ',DISK_VERS\ENDIF
  22. \IF DISK_SUBTITLE<>' '\LOC TXT_LFT,#99
  23. \DISP DISK_SUBTITLE\ADD FNTY TO #99\ELSE\MOV 0 TO #85\ENDIF
  24. \IF FONT_TYPE>'2' AND DISK_VERS<>' '\LOC TXT_LFT,#99\DISP '      ',DISK_VERS\ENDIF
  25. \ADD FNTY TO #99\ADD FNTY TO #99
  26. \LEN DSK5AUTHR\IF A=0\MOV ' ' TO DSK5AUTHR\MOV ' ' TO DSK4AUTHR\ENDIF
  27. \MOV AUTHRFNT TO #200\CALL CURRFNT
  28. \IF AUTHRFNT>'1'\SUB 6 FROM #99\IF AUTHRFNT>3\SUB 6 FROM #99\ENDIF
  29. \CALL TXTUP\DISP DSK1AUTHR\CALL TXTUP\DISP DSK2AUTHR\CALL TXTUP\DISP DSK3AUTHR
  30. \IF AUTHRFNT<'2'\CALL TXTUP\DISP DSK4AUTHR\CALL TXTUP\DISP DSK5AUTHR\ENDIF
  31. \MOV #99 TO #94\CALL BLNKOUT\RET
  32. \X SHOW_LABELINFO\TEXT PLANE=1110\MOV #99 TO #93\IF LABTYPE='5.25"'\JUMP LABINOUT\ENDIF
  33. \LEN INFO1LN\IF A=0\MOV ' ' TO INFO1LN\MOV ' ' TO INFO2LN\MOV ' ' TO INFO3LN
  34. \MOV ' ' TO INFO4LN\MOV ' ' TO INFO5LN\MOV ' ' TO INFO6LN\ENDIF
  35. \MOV BODYFNT TO #200\CALL CURRFNT\CALL TXTUP\DISP INFO1LN\CALL TXTUP\DISP INFO2LN
  36. \IF BODYFNT<'2'\CALL TXTUP\DISP INFO3LN\CALL TXTUP\DISP INFO4LN
  37. \CALL TXTUP\DISP INFO5LN\CALL TXTUP\DISP INFO6LN\CALL TXTUP\DISP INFO7LN\CALL TXTUP\DISP INFO8LN
  38. \ENDIF\X LABINOUT\MOV #99 TO #94\CALL BLNKOUT\RET
  39. \X TXTUP\LOC TXT_LFT,#99\ADD FNTY TO #99\TEXT PLANE=1110\RET
  40. \X CURRFNT\IF #200='2'\READ K:162018PW.FON\MOV 20 TO FNTY\ELSE\IF #200='3'
  41. \READ K:242218PW.FON\MOV 22 TO FNTY\ELSE\IF #200='4'
  42. \READ K:242918PW.FON\MOV 29 TO FNTY\ELSE\CALL RDSMLFON\ENDIF\RET
  43. \X SHOW_COMPANY\MOV #99 TO #93
  44. \MOV CMPNYFNT TO #200\CALL CURRFNT\WID 270 DOTS C\HEI 199
  45. \CALL TXTUP\DISP ADDRINFOLINE\CALL TXTUP\DISP COMPANY
  46. \CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF\DISP ADDR1LINE\CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF
  47. \IF #99>387\JUMP C_OUT\ENDIF\IF ADDR2LINE<>' '\DISP ADDR2LINE\CALL TXTUP\ENDIF
  48. \IF #99>387\JUMP C_OUT\ENDIF\IF CITY<>' '\DISP CITY,' ',STATE,' ',ZIP\ENDIF
  49. \IF COUNTRY_PRINT='Y'\DISP '  ',COUNTRY\ENDIF
  50. \CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF\DISP PHONE
  51. \X C_OUT\CALL RDSMLFON\MOV #99 TO #94\CALL BLNKOUT\RET
  52. \X SHOW_LOGO\IF LOGO_ACTV='N'\JUMP LOGOUT\ENDIF\IF #507='4'\READ (#505)\ELSE
  53. \IF #507='2' OR #507='3'\CALL RD_LOGO\ELSE\READ K:LOGOS_18.PIC\ENDIF
  54. \FRAME ?\IF A>=#506\SHOW OR=YES W=#501,#502,#503,#504 L=#501,#502 F=#506,#506\ENDIF\X LOGOUT\CALL BLNKOUT\RET
  55. \X RD_LOGO\SAVE SCRE\CLEAR PICS\EXEC DOS>(#505)
  56. \IF A<>-1\FRAME LOGO_XLORIG,LOGO_YLORIG,LOGO_XHORIG-LOGO_XLORIG,LOGO_YHORIG-LOGO_YLORIG\MOV 1 TO LOGO_NMBR\ENDIF\RESTORE SCRE\RET
  57. \X PRINT_SRL\IF SRL_ACTV='Y'\LOC SRL_XPOSI,SRL_YPOSI\CALL RDSMLFON\CALL BLD_SRL\CALL SETSRLXHGH\BLA SRL_XPOSI,SRL_YPOSI,#200,SRL_YPOSI+11\+
  58. \TEXT PLANE=1110\DISP SRL_PRFX,SRL_PR\ENDIF\CALL BLNKOUT\RET
  59. \X SETSRLXHGH\LEN SRL_PRFX\MOV (A*10)+(SRL_LEN*8)+SRL_XPOSI TO #200\IF #200>HIGHXPRN-BRDRWIDTH\MOV HIGHXPRN-BRDRWIDTH TO #200\ENDIF\RET
  60. \X SET_STNDRDS\MOV 6 TO #340\MOV 20 TO #305\MOV 2 TO #311\+
  61. \LEN #114\IF A=0\MOV '1' TO #112\MOV '1' TO #113\MOV '1' TO #114\ENDIF\+
  62. \LEN #760\IF A=0\MOV '3.5"' TO #760\ENDIF\+
  63. \IF #760='5.25"'\MOV 2 TO #310\MOV 12 TO #761\MOV 202 TO #762\+
  64. \MOV 0 TO #300\MOV 194 TO #301\MOV 566 TO #302\MOV 393 TO #303\ELSE\+
  65. \MOV 53 TO #310\MOV 9 TO #761\MOV 110 TO #762\+
  66. \MOV 0 TO #300\MOV 10 TO #301\MOV 366 TO #302\MOV 393 TO #303\ENDIF\+
  67. \LEN #512\IF A=0\MOV 'Y' TO #500\+
  68. \MOV 'LOGOS_18.PIC' TO #505\MOV '1' TO #507\+
  69. \MOV 0 TO #509\MOV 0 TO #510\MOV 50 TO #511\MOV 50 TO #512\+
  70. \MOV #302 TO #503\MOV #303 TO #504\IF #760='3.5"'\MOV 1 TO #506\+
  71. \MOV 275 TO #501\MOV 302 TO #502\ELSE\MOV 2 TO #506\MOV 375 TO #501\MOV 302 TO #502\ENDIF\+
  72. \LEN #147\IF A=0\MOV ' ' TO #147\ENDIF\+
  73. \LEN #550\IF A=0\MOV ' ' TO #550\MOV ' ' TO #551\MOV ' ' TO #552\MOV ' ' TO #553\ENDIF
  74. \LEN #660\IF A=0\MOV '1' TO #660\ENDIF\LEN #613\IF A=0\MOV 180 TO #613\MOV 149 TO #614\ENDIF\+
  75. \LEN #881\IF A=0\MOVE 1 TO #881\MOVE 8 TO #882\MOVE 14 TO #883\MOVE 11 TO #884\ENDIF\+
  76. \LEN #612\IF A=0\MOV 'N' TO #600\MOV 'Serial #:' TO #601\+
  77. \MOV 9109 TO #602\MOV 2100 TO #603\MOV 0 TO #604\MOV 12 TO #612\+
  78. \MOV 9109 TO #605\MOV 2100 TO #606\MOV 0 TO #607\MOV 'N' TO #611\+
  79. \MOV 'N' TO #608\MOV 1 TO #609\MOV '199110080000' TO #610\ENDIF\+
  80. \MOV #302+10 TO #320\MOV 479 TO #322\+
  81. \IF #760='5.25"'\MOV 0 TO #320\MOV #301-1 TO #322\ENDIF\MOV 639-#320 TO #321\+
  82. \LEN #406\IF A=0\MOV 1 TO #401\MOV 0 TO #402\MOV 0 TO #403\+
  83. \MOV 1 TO #404\MOV 0 TO #405\MOV 0 TO #406\ENDIF\RET
  84. \X RDSMLFON\READ K:081118PW.FON\MOV 11 TO FNTY\RET
  85. \X CRSRUP\BLA #320,#810,639,412\LOC #320,#810\WID #321 DOT\CURS CRSR_XLOC,CRSR_YLOC,80,CRSR_YLOC+4
  86. \ADD 48 TO #810\ADD 3 TO CRSR_YLOC\RET
  87. \X GTFNT\SUB 48 FROM #810\SUB 3 FROM CRSR_YLOC\CALLM CRSRUP
  88. Enter font size (1 to 4) for the next portion of text.  Larger sizes cannot print as many lines.
  89. \CURS CRSR_XLOC,CRSR_YLOC,80,CRSR_YLOC
  90. \X GET_FONTTYPE\QUES #200,1\IF #200<'1' OR #200>'4'\BEEP 55,77
  91. \LOC #320,#810+70\TEXT PLANE=0100
  92. Font type must be 1, 2, 3, or 4!
  93. \JUMP GET_FONTTYPE\ENDIF\CALL CRSRUP\RET
  94. \X DOSEXIT\OVE 1\CLEAR SCRE\LOC 100,130\WID 420 DOT C\ON KEY 7181\CALL RDSMLFON\KEY NEXT=7181\TEXT PLANE=1011
  95. To end LABELER and return to DOS, press Q (QUIT).
  96. \TEXT PLANE=1110
  97. \"
  98. To keep LABELER loaded in RAM so you
  99. can return to it, press <RETURN>.
  100. Press <F10> to stay in LABELER.
  101. \"
  102. \"
  103. \BLA 0,230,639,241\LOC 100,230\ROUN -1 SPEED 20 REVERSIBLE
  104. \IF CHGD_LBL='Y'
  105. NOTE: UNSAVED CHANGES TO YOUR LABEL EXIST!
  106. \"
  107. (That's O.K. if you only "Shell" out temporarily to DOS.
  108. To do that, just press <RETURN>.)
  109. \ELSE
  110. Press Q, <RETURN>, or <F10>!
  111. \"
  112. \"
  113. \"
  114. \ENDIF
  115. \"
  116. If exiting temporarily,
  117. from the DOS prompt type
  118. "EXIT" to return to LABELER.
  119. \"
  120. Your available memory 
  121. (BEFORE exit occurs) is:
  122. \MEMORY ?\MOV A+15 TO #200\CONVERT #200\LOC 256,358\DISP #200,' K bytes.'
  123. \IF A<80\LOC 100,371
  124. EXIT to DOS will fail if there isn't enough RAM.
  125. How much you need depends in part on your DOS version.
  126. \ENDIF\ON KEY 4096 JUMP BYE\ON KEY 4209 JUMP BYE\ON KEY 4177 JUMP BYE\IF CHGD_LBL<>'Y'
  127. \READ K:AS-LOG18.PIC\KEYS MINUS=19200 PLUS=19712 REVERSE=18688 FORWARD=20736 INCREASE=18432 DECREASE=20480\SHOW 208,20,1,15\ELSE\CALL UNSVD_SND\CALL RSND\ENDIF
  128. \X TEMPDOS\CLEAR PICS\BLA 0,0,619,296\BLA 0,319,639,479\BEEP 184,184\WAIT NOW 884\CLEAR SCR\EXEC DOS>\CLEAR SCR\CLEAR ON KEYS\RET
  129. \X BYE\CLEAR SCR\MOV 'DEL TEMP.DAT' TO #200\EXEC DOS>(#200)\END
  130. \X MAKENM\BUILD LABELNM=HLDFLNM,'.AUX'\RET
  131. \X MOVENO2TEMP\LEN SRL_TEMPRUN\IF A>0\IF SRL_TEMPRUN='Y'\MOV SRL_LST4LOW TO SRL4LOW\MOV SRL_LST4MID TO SRL4MID\MOV SRL_LST4HGH TO SRL4HGH\MOV 'N' TO SRL_TEMPRUN\ENDIF\RET
  132. \X UPSRL\IF SRL4LOW+SRL_INCR<=9999\JUMP ADDUP\ENDIF\IF SRL_LEN=4\CALL OVERSRL\JUMP NO_UP\ENDIF\+
  133. \IF SRL4MID<9999\JUMP ADDUP\ENDIF\IF SRL_LEN=8\CALL OVERSRL\JUMP NO_UP\ENDIF\+
  134. \IF SRL4HGH<9999\JUMP ADDUP\ENDIF\CALL OVERSRL\JUMP NO_UP\+
  135. \X ADDUP\ADD SRL_INCR TO SRL4LOW\IF SRL4LOW>9999\IF SRL_LEN>4\ADD 1 TO SRL4MID\SUB 10000 FROM SRL4LOW\+
  136. \IF SRL4MID>9999\IF SRL_LEN>8\ADD 1 TO SRL4HGH\MOV 0 TO SRL4MID\IF SRL4HGH>9999\MOV 0 TO SRL4HGH\ENDIF\+
  137. \X NO_UP\CALL BLD_SRL\RET\X BLD_SRL
  138. \MOV SRL4LOW TO #200\MOV SRL4MID TO #201\MOV SRL4HGH TO #202\+
  139. \CONVERT #200\CONVERT #201\CONVERT #202\BUILD SRL_PR=#202[3,4],#201[3,4],#200[3,4]\+
  140. \MOV SRL_PR[1,1] TO #200\IF #200=' '\BUILD SRL_PR='0',SRL_PR[2,11]\ENDIF\+
  141. \MOV 2 TO X\X CONVLOOP\MOV SRL_PR[X,1] TO #200\+
  142. \IF #200=' '\BUILD SRL_PR=SRL_PR[1,X-1],'0',SRL_PR[X+1,12-X]\ENDIF\+
  143. \ADD 1 TO X\IF X<12\JUMP CONVLOOP\ENDIF\+
  144. \MOV SRL_PR[12,1] TO #200\IF #200=' '\BUILD SRL_PR=SRL_PR[1,11],'0'\ENDIF\+
  145. \IF SRL_LEN<12\MOV SRL_PR[5,8] TO SRL_PR\IF SRL_LEN<8\MOV SRL_PR[5,4] TO SRL_PR\ENDIF\+
  146. \RET\X RD_TEMPDAT\OPEN TEMP.DAT\MOV 0 TO Z\MOV 0 TO V
  147. \X NEXTDATA\ELIMINATE #700 TO #709\DATA #700,#701,#702,#703,#704,#705,#706,#707,#708,#709\ADD 1 TO V
  148. \ADD 1 TO V\IF V<3\JUMP NEXTDATA\ENDIF\MOV 700 TO G\LEN #G\IF A>0\CALL LOOK4SZ\IF Z=0\JUMP NEXTDATA\ENDIF
  149. \IF V<20 AND Z=0\JUMP NEXTDATA\ENDIF\CLOSE TEMP.DAT\RET
  150. \X LOOK4SZ\LEN #G\IF A>0\CALL FINDFREE\ADD 1 TO G\JUMP LOOK4SZ\ENDIF\RET
  151. \X FINDFREE\MOV #G[A-9,10] TO #200\IF #200=#201\IF #201='BYTES FREE'\CALL FBYTES\ENDIF
  152. \IF Z<3\SUB 1 FROM A\IF A>11\JUMP FINDFREE\ENDIF\RET
  153. \X FBYTES\MOV 1 TO Z\MOV #G[A-15,1] TO #201\IF #201=","\ADD 1 TO A\JUMP FBYTES\ENDIF\IF #201>='0' AND #201<='9'\ELSE\JUMP BYTESOUT\ENDIF
  154. \IF #201>'1'\MOV 2 TO Z\ENDIF\X COMMA\MOV #G[A-16,1] TO #201\IF #201=","\ADD 1 TO A\JUMP COMMA\ENDIF
  155. \IF #201>='0' AND #201<='9'\MOV 3 TO Z\ENDIF
  156. \X BYTESOUT\RET
  157. \X OVERSRL\LOC #320+50,349\WID 160 DOTS C\CALL RDSMLFON\CALL UNSVD_SND\TEXT PLANE=0100
  158. WARNING!-SERIAL #'S RAN OUT!
  159. NO INCREMENTING WILL BE DONE.
  160. \RET
  161. \X DONE_NOISE\BE 12,1207\BE 12,1140\BE 12,1076\BE 12,1016\BE 12,958\BE 12,905
  162. \BE 12,854\BE 12,806\BE 12,761\BE 12,719\BE 12,678\BE 12,1207\BE 12,1140\BE 12,1076
  163. \BE 12,1016\BE 12,958\BE 12,905\BE 12,854\BE 13,806\BE 15,761\BE 28,719
  164. \BE 22,678\WA N 48\RET
  165. \X UNSVD_SND\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806
  166. \BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403
  167. \BE 6,101\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806
  168. \BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806\BE 6,1612\RET
  169. \X RSND\LOC 99,30
  170. LABEL CHANGES EXIST!
  171. \WAIT NOW 99\BL 0,0,639,80\WAIT NOW 99\IF B<>7181\JUMP RSND\ENDIF\RETURN
  172.  
  173.